www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminchannel_qiye\D_chk_add_chnl.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>





<LINK href="../css.css" type=text/css rel=stylesheet>
<%

dir_set="../../"


%>


<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->

<!--#include file=../../inc/ajaxLIB.asp-->

<!--#include file=../inc/checkadmin2.asp-->

<!--#include file=../../inc/functionFiless.asp-->


<!--#include file=../../inc/ND_class_function.asp-->


<%
AJAXshowLoader()


%>



	<%
biao="[ND_channel]"


sys_content_type=trim(request("sys_content_type"))



Function ChkNumeric(CHECK_ID)
		IF CHECK_ID = "1" or CHECK_ID =1 Then
			ChkNumeric = "1"
		Else
			ChkNumeric = "0"
		End If
		
		if CHECK_ID ="" then
		
		ChkNumeric = "0"
		end if
		
	End Function

Function ChkFormStr(ByVal str)
		Dim fString
		fString = str
		If IsNull(fString) Then
			ChkFormStr = ""
			Exit Function
		End If
		fString = Replace(fString, "'", "&#39;")
		fString = Replace(fString, Chr(34), "&quot;")
		fString = Replace(fString, Chr(13), "")
		fString = Replace(fString, Chr(10), "")
		fString = Replace(fString, Chr(9), "")
		fString = Replace(fString, ">", "&gt;")
		fString = Replace(fString, "<", "&lt;")
		fString = Replace(fString, "&nbsp;", " ")
		ChkFormStr = fString
	End Function


 Function Formatime(ByVal datime)
	datime = Trim(Replace(Trim(datime), vbNewLine, ""))
	If Not IsDate(datime) Then
		Formatime = Now()
		Exit Function
	End If
	If Len(datime) < 11 Then
		Formatime = CDate(datime & " " & FormatDateTime(Now, 3))
	Else
		Formatime = CDate(datime)
	End If
	Exit Function
End Function







if session(nd_admin_cach_varb_name)="" then
if request.cookies(nd_admin_cach_varb_name)="" then
uuuaa=""
else
uuuaa=request.cookies(nd_admin_cach_varb_name)
end if
else
uuuaa=session(nd_admin_cach_varb_name)
end if



err1=0

if request("classt")="no" then
err1=1


%>
<script language="javascript">
alert("请先选择频道类型");
history.go(-1);

</script>

<%

response.end
end if


if request("title")="" then
err1=1


%>
<script language="javascript">
alert("请填写频道名称");
history.go(-1);

</script>

<%

response.end
end if






if request("urlb")="" then
err1=1


%>
<script language="javascript">
alert("请填写频道内部链接文件");
history.go(-1);

</script>

<%

response.end
end if


if isnumeric(request("orders"))=0 then



err1=1
%>
<script language="javascript">
alert("顺序号必须为数字");
history.go(-1);

</script>



<%




end if





if err1=0 then


if trim(request("urlb"))="$cstpage$" then

urlllb="$cstpage$"&trim(request("urlbff"))
else
urlllb=trim(request("urlb"))
end if






connontt=0
if request("classt")="job" then

set rs44aa=server.CreateObject("adodb.recordset")
rs44aa.open "select * from "&biao&" where lanmu_type='job' and is_qiye=1",conn,1,1
if not rs44aa.eof then

connontt=1


%>
<script language="javascript">


alert("人才招聘类栏目不允许存在多个,已存在一个");


history.go(-1);

</script>

<%


end if


end if



if connontt=0 then











set rs44=server.CreateObject("adodb.recordset")
rs44.open "select * from "&biao&"",conn,1,3
rs44.addnew


rs44("lanmu_type")=request("classt")

rs44("sys_content_type_name")=request("classt")&"_id"&request("idset")


rs44("is_hidden")=ChkNumeric(request("ish"))

rs44("name")=request("title")

rs44("is_link_class")=ChkNumeric(request("isoutLink"))
rs44("is_open_use_blank")=ChkNumeric(request("LinkTarget"))
rs44("orders")=request("orders")
rs44("titleColor")=request("ColorMode")
rs44("titleFont")=request("FontMode")

rs44("channel_pic")=Request("ImageUrl")


rs44("outlink")=Request("TurnLinkUrl")

rs44("channel_file_url")=urlllb
rs44("Uploadfile_list")=Trim(Request.Form("UploadFileList"))

rs44("is_qiye")=1


rs44.update
call all_update_qiantai_web_filenames_config_xml()


%>
<script language="javascript">


alert("添加成功");

parent.c_menu.window.location.reload();
self.location="D_admin_chnl.asp";

</script>

<%


end if
end if
%>



<%
AJAXcloseLoader()
%>